#!/usr/bin/perl

$mailprog = "/usr/sbin/sendmail";
$email = "me\@gmail.com";
$theirmail = "BlueSphere\@familyname.com";
$subj = "Home Now!";
$sname = "BlueSphere";

&sendMail;

exit(0);

sub sendMail
{
      
        $mailcontent .= "\n\nThank You, And Have A Nice Day\n\n";
        $mailcontent .= "$sname.\n";

        open(MAIL, "|$mailprog -t\n");
                print MAIL "To: $email\n";
                print MAIL "From: $theirmail\n";
                print MAIL "Subject: $subj\n\n";
                print MAIL "$mailcontent\n\n";
                print MAIL "\n\n.\n\n";
        close(MAIL);

}
